<!--#include file="../p1.asp" -->
<%
Dim File,F,qes,txt
Easp.Upload.SavePath = "upload"
If Easp.Upload.GetData Then
    For Each File In Easp.Upload.Files("-1")
        Set F = Easp.Upload.Save(File,0,True)
        If F.Succeed Then 
			qes=F.FileName
        End If 
    Next
End If
vas "qes",qes
txt=replace("{'code':[dy:code],'msg': '[dy:msg]','data': {'src': 'http://'}}","'","""")
if qes<>"" then
	txt=replace(txt,"[dy:code]",0)
	txt=replace(txt,"[dy:msg]",qes)
else
    txt=replace(txt,"[dy:code]",1)
	txt=replace(txt,"[dy:msg]","上传失败！")
end if
echo txt
%>